home *** CD-ROM | disk | FTP | other *** search
/ Know Your Baseball - The Greatest Player Resource / Know Your Baseball - Greatest Player.iso / Baseball / Director / KTGCST.CST / 00044_Script_44 < prev    next >
Text File  |  1998-09-21  |  1KB  |  64 lines
  1. global gmusic,gsoundlevel,gb,defaultsnd,dlflag,gbuttonstate
  2. on StartMovie 
  3.   initPrompts
  4.   set gb = new(script "ButtonsObject")  
  5.   cursor -1
  6.   repeat with x = 5 to 47
  7.     PuppetSprite x,1
  8.   end repeat
  9.   
  10.   initrolloverkit
  11.   initButtonKit
  12.   if dlflag = 1 then 
  13.     set dlflag = empty
  14.     setat(gbuttonstate,38,2)
  15.     set the blend of sprite 38 = 100
  16.     
  17.   end if
  18.   
  19.   set MyMovie = the movieName
  20.   set the itemDelimiter= "."
  21.   if item 1 of MyMovie = "ktgskil" then
  22.     set the blend of sprite 5 = 100
  23.     set the membernum of sprite 25 = the membernum of sprite 25+1
  24.     set the blend of sprite 25 = 100
  25.     setat(gbuttonState,25,2)
  26.     preLoadMember member 11, 16
  27.   end if
  28.   
  29.   set mymovie = item 1 of mymovie
  30.   case mymovie of
  31.     "main","BTG","KTGskil":
  32.       set a = "coach"
  33.     "KTG_r_1","KTG_r_2","KTG_r_3":
  34.       set a = "coach"
  35.     "KTG_f_1","KTG_f_2","KTG_f_3":  
  36.       set a = "coach"
  37.     otherwise
  38.       set a = "guide"
  39.   end case
  40.   set the itemDelimiter= ","
  41.   -- start bg sound
  42.   bgmusic 
  43.   if defaultsnd > EMPTY then
  44.     LoadFirstSoundst(defaultsnd)
  45.     set defaultsnd = empty
  46.   else
  47.     LoadFirstSounds(a)
  48.   end if
  49.   set  the ItemDelimiter to "."
  50.   set  t =  item 1 of the moviename
  51.   if t = "Teamply" then
  52.     Initteamaudio
  53.     exit
  54.   end if
  55. end
  56.  
  57.  
  58. on stopmovie
  59.   set the mouseUpScript = EMPTY
  60.   puppetsound 1,0
  61.   puppetsound 2,0
  62.   cursor 4
  63. end
  64.